vbslib

(for Internet Explorer)

txt2bintxt.exe は、VBScript で、一部がバイナリになっているテキストファイルを
作成できるようにする変換ツールです。

f.WriteLine "123"
f.WriteLine Chr(&hFF)+"EF BB BF 0D 0A"
f.WriteLine "123"

バイナリになっている行は、行頭に Chr(&hFF) を出力してください。

31 32 33 0D 0A
EF BB BF 0D 0A
31 32 33 0D 0A

こうして出力したファイルを、in.txt として、

txt2bintxt.exe in.txt out.txt

を実行すると、out.txt は次のようになります。

out.txt （バイナリ表現）

out.txt （テキスト表現）

EF BB BF は、UTF-8 の BOM です。

不要になった入力ファイル(in.txt) は、別途削除してください。

BOM 付きテキストファイル

バイナリ・ファイル・アクセス

Sub Txt2BinTxt( SrcPath as string, DstPath as string )

Function get_ADODBConsts() as ADODBConsts

ADODB モジュールの定数をメンバーに持つオブジェクトを返します。

ADODBConsts が定義する定数

Dim c : Set c = get_ADODBConsts()
t = f.Read( c.adReadAll )

バイト配列を作成する関数

バイト配列と整数の間で変換する関数

Function ADODBConsts::ConvertToByteArray( ByteArray as variant,
Offset as integer, Size as integer ) as array of Byte

文字列や配列や数値を、バイト配列に変換します。

文字列、または配列、または数値

返り値の先頭となる ByteArray の中の位置。先頭=0

ByteArray の中から返り値にするサイズ（バイト）。最後まで=-1

Dim binary, stream
Dim c : Set c = get_ADODBConsts()
binary = c.ConvertToByteArray( ChrB( &h42 ) + ChrB( &h4D ), 0, Empty )
stream.Write binary

binary = c.ConvertToByteArray( &h4D, 1, Empty )

→ T_Binary フォルダ

Function ADODBConsts::ConvertToStructuredByteArray( FormatAndDataArray as array ) as array of Byte

構造化した配列を、バイト配列に変換します。

バイナリ配列へライトする部分の型とライトする値の集合

→ T_Binary フォルダ

構造化した配列、FormatAndDataArray 引数の説明

Function ADODBConsts::BytesToShortInt( b0, b1, b2, b3 as integer ) as integer

2バイトのバイナリ・データを、-32768(&h8000)～32767(&h7FFF) の整数に変換します。

c.BytesToShortInt( &hFE, &hFF ) = &hFFFE

Function ADODBConsts::BytesToUShortIntToLongInt( b0, b1, b2, b3 as integer ) as integer

2バイトのバイナリ・データを、0～65535 の整数に変換します。

c.BytesToUShortIntToLongInt( &hFE, &hFF ) = 65534

Function ADODBConsts::BytesToLongInt( b0, b1, b2, b3 as integer ) as integer

4バイトのバイナリ・データを、Long 型整数に変換します。

c.BytesToLongInt( &h78, &h56, &h34, &h12 ) = &h12345678

c.BytesToLongInt( AscB( b ), AscB( MidB( b, 2, 1 ) ), _
AscB( MidB( b, 3, 1 ) ), AscB( RightB( b, 1 ) ) )

Function ADODBConsts::ShortIntToBytes( Value as integer ) as array of integer

-32768(&h8000)～32767(&h7FFF) の整数を、2バイトの配列に変換します。

c.ShortIntToBytes( &hFEFF ) = Array( &hFF, &hFE )

&h0000～&h7FFF（Integer型）、&h10000～ &h7FFFFFFF（Long型）は、正の整数です。
&h8000～&hFFFF（Integer型）、&h80000000～（Long型）は、負の整数です。

Function ADODBConsts::LongIntToUShortIntToBytes( Value as integer ) as array of integer

0～65535 の整数を、2バイトの配列に変換します。

c.LongIntToUShortIntToBytes( 65534 ) = Array( &hFE, &hFF )

Function ADODBConsts::LongIntToBytes( Value as integer ) as array of integer

整数を、4バイトの配列に変換します。

c.LongIntToBytes( &h12345678 ) = Array( &h78, &h56, &h34, &h12 )

Sub ADODB_Stream_loadFromFile( Stream as ADODB.Stream, Path as string )

エラーメッセージを適切にした ADODB.Stream.LoadFromFile 。

T_IsSameBinaryFile_ReadWriteLock

複数行からなる文字列のうち、それぞれの行を要素とした配列を返します。

Function ArrayFromLines( lines as string ) as Array of string

For Each line In ArrayFromLines( "ABC"+ vbCRLF +"DEF" )
Next

複数行からなる文字列

それぞれの行を要素とした配列

上記 ArrayFromLines の返り値は、Array( "ABC", "DEF" )

"ABC"+ vbCRLF +"DEF"

改行文字は、CR+LF でも LF でもどちらでも構いません。

a_array = ArrayFromLines( Trim2( root.selectSingleNode( _
"./Lines/text()" ).nodeValue ) )

a_array は、Array( "Line (1)", "Line (2)" ) になります。

→ セクション化されたソースファイル (Module Mixer)

→ 構造化テキストフォーマット

セクション化されたテキストを集めた文字列を返します

セクション化されたテキストを編集します

複数のセクションに分けたテキストファイルを扱います。

セクション化されたテキストを集めてファイルを作成します

Sub CreateFromTextSections( in_XML_Path as string, in_XML_Root as IXMLDOMElement,
in_CreateFilePath as string, in_MixedTextXPath as string, in_Empty as Empty )

TextSection タグがある XML ファイルのパス

Empty、または、in_XML_Path の XML の要素オブジェクト

作成するファイルのパス

セクション化されたテキストを集めてファイルを作成します。

Empty、または、オプション（下記）

セクション化されたテキストを集めたテキスト

下記の MixedText タグがある XML 要素の XPath、基準は in_XML_Root

テキスト、MixedText タグのサンプル

in_XML_Root の中にある

は、TextSection タグの path 属性に指定できます。

CreateFile タグに指定されたすべてのファイルを作成する。

CreateFromTextSections "SettingA.xml", Empty, Empty, Empty, Empty

in_XML_Root に Empty を指定すると、内部で

( in_XML_Path, Empty ) を呼び出します。その分、

CreateFile タグに指定されたすべてのファイルを作成する。

CreateFromTextSections "SettingA.xml", Empty, "_out.txt", "#C_Type", Empty

→ T_TextSection.vbs

T_CreateFromTextSections

CreateFromTextSections "SettingA.xml", Empty, "_out.txt", "/MixedText[@id='C_Type']", Empty

処理時間がかかります。

in_Empty に get_ToolsLibConsts().DeleteIfNoSection を指定すると、MixedText タグの中の TextSection タグ
が１つも無いときに、in_CreateFilePath のファイルが削除されます。

Function ReadTextSections( in_XML_Root as IXMLDOMElement,
in_MixedTextXPath as string, in_VariablesForPath as string,
in_Variables as LazyDictionaryClass, in_Empty as Empty )

in_MixedSettingXPath の基準となる XML要素（タグ）

下記の MixedText タグがある XML 要素の XPath、基準は in_XML_Root

アドレスの基準となる XML ファイルのパス

セクション化されたテキストを集めた文字列を返します。

Empty を指定してください

セクション化されたテキストを集めたテキスト

Empty または path 属性に評価するときに使う辞書

→ T_TextSection.vbs

Set linker = new LinkedXMLs
linker.XmlTagNamesHavingIdName = Array( "MixedText" )

xml_path = "SettingB.xml"
Set xml_root = LoadXML( xml_path, Empty )

linker.StartNavigation xml_path, xml_root
Set mixed_text_tag = linker.GetLinkTargetNode( xml_root.getAttribute( "mixed_text" ) )
text = ReadTextSections( mixed_text_tag, ".", linker.TargetXmlPath, Empty, Empty )
linker.EndNavigation

SettingB.xml の XML 属性から参照する MixedText タグからセクションを集める。

テキストのサンプル

in_XML_Root の中にある

と、in_VariablesForPath 引数の変数は、TextSection タグの path

属性に指定できます。

xml_path = "SettingB.xml"
Set xml_root = LoadXML( xml_path, Empty )

text = ReadTextSections( xml_root, "/MixedText[@id='mixed_1']", xml_path, Empty, Empty )

→ T_TextSection.vbs

T_MakeCrossedOldSections

Sub MakeCrossedOldSections( in_OutFolderPath as string, _
in_NewFolderPath as string or PathDictionaryClass, in_OldFolderPath as string, _
in_NewTxscPath as string, in_OldTxscPath as string, in_Option as Empty )

新しいセクションの構成に合わせるように、古い内容のセクションを集めます。

出力ファイルを格納するフォルダーのパス

新しいセクションの構成を持つファイルが入ったフォルダーのパス

古い内容のセクションを持つファイルが入ったフォルダーのパス

in_OldFolderPath の中間ファイルを格納するフォルダーのパス

in_NewFolderPath の中間ファイルを格納するフォルダーのパス

Empty を指定してください

→ T_CrossedOld フォルダー

in_NewFolderPath 引数に

のオブジェクトを指定できます。

in_NewFolderPath 引数に指定したファイルに対応する出力ファイルが in_OutFolderPath 引数に指定
したフォルダーに格納されます。

中間ファイルは、

が出力するセクションインデックスファイルです。

/* Title: Section_A_1 */
This is old Section-A-1.

/* Title: Section_B_1 */
This is old Section-B-1.

/* Title: Section_B_2 */
This is old Section-B-2.

/* Title: Section_A_1 */
New A-1.

New A-2.

/* Title: Section_B_1 */
New B-1.

/* Title: Section_B_2 */
New B-2.

/* Title: Section_B_1 */
This is old Section-B-1.

/* Title: Section_A_1 */
This is old Section-A-1.

/* Title: Section_B_2 */
This is old Section-B-2.

/* Title: Section_A_2 */
This is old Section-A-2.

/* Title: Section_A_2 */

/* Title: Section_A_2 */
This is old Section-A-2.

New フォルダーにある A.txt と同じ名前のファイルを、Out フォルダーに作成します。その内容は、
New フォルダーにある A.txt のセクションの構成（順序）、すなわち、Section_A_1、Section_A_2 の

順になります。セクションの名前は、

が入力する形式で記述します。

形式のみ対応しています。それぞれセクションの内容は、Old フォルダーに

ある、すべてのファイルの中から検索して見つかったセクションをコピーした内容になります。

を呼び出しています。

MakeTextSectionIndexFile "*.c", "NaturalDocs", "C_Type", Empty, Empty

Sub MakeTextSectionIndexFile( Path as string or PathDictionaryClass,
TagTypeName as string, BeforeRootFullPath as string, AfterRootFullPath as string )

タグが付いたファイルから、セクションインデックスファイルを更新します。

セクション化されたテキストファイルのパス、または、

タグのタイプ、"NaturalDocs" を指定してください

.txsc ファイルのタイムスタンプの方が新しいときは、更新をせず、高速に処理します。

→ T_TextSection.vbs

→ NaturalDocs 関連の構文解析

*.txsc ファイルを作成する

_txsc\(ファイル名.拡張子).txsc の例

セクション化されたテキストのルート・フォルダーのパス

セクションインデックスファイル(.txsc) のルート・フォルダーのパス

BeforeRootFullPath 引数、AfterRootFullPath 引数に Empty を指定すると、カレントフォルダーを指定した
ときと同じ処理をします。 BeforeRootFullPath 引数、AfterRootFullPath 引数の詳細は、

出力ファイルの中の type 属性に入れる文字列

BeforeRootFullPath 引数と AfterRootFullPath 引数に、テキストファイルとインデックスファイルのある場所
の関係を指定します。

TagTypeName = "NaturalDocs" の場合の Sample.c の例